﻿
Public Class principal
    Dim objcontrole As New ClsControle


    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked

    End Sub

    Private Sub ToolStripLabel2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub ClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem.Click
        frmAlteraClientes.Show()
        'frmClientes.MdiParent = Me

    End Sub


    Private Sub NovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoToolStripMenuItem.Click
        frmCadPedidos.Show()
    End Sub

    Private Sub ProdutosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProdutosToolStripMenuItem.Click
        frmProdutos.Show()
    End Sub


    Private Sub ClientesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RelatorioToolStripMenuItem1.Click
        frmRelatorioPedido.Show()
    End Sub

    Private Sub CestasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CestasToolStripMenuItem.Click
        frmCestas.Show()
    End Sub

    Private Sub ClientesToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem1.Click

        Dim relatorio As New CrpClientes
        'titulo do relatorio
        relatorio.SummaryInfo.ReportTitle = "Relatório de Clientes Cadastrados"
        'comentario relatorio
        relatorio.SummaryInfo.ReportComments = "Arte Cestas LTDA."
        relatorio.SummaryInfo.ReportAuthor = "Bis Consulting - Tecnologia da Informção."
        frmImp.Show()
        frmImp.crpImpressao.ReportSource = relatorio
    End Sub

    Private Sub ProdutosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProdutosToolStripMenuItem1.Click
        Dim relatorio As New crpProdutos
        'titulo do relatorio
        relatorio.SummaryInfo.ReportTitle = "Relatório de Produtos Cadastrados"
        'comentario relatorio
        relatorio.SummaryInfo.ReportComments = "Arte Cestas LTDA."
        relatorio.SummaryInfo.ReportAuthor = "Bis Consulting - Tecnologia da Informção."
        frmImp.Show()
        frmImp.crpImpressao.ReportSource = relatorio
    End Sub

    Private Sub CestasToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CestasToolStripMenuItem1.Click
        Dim relatorio As New crpCestas
        'titulo do relatorio
        relatorio.SummaryInfo.ReportTitle = "Relatório de Cestas Cadastrados"
        'comentario relatorio
        relatorio.SummaryInfo.ReportComments = "Arte Cestas LTDA."
        relatorio.SummaryInfo.ReportAuthor = "Bis Consulting - Tecnologia da Informção."
        frmImp.Show()
        frmImp.crpImpressao.ReportSource = relatorio
    End Sub




    Private Sub PesquisaClienteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PesquisaClienteToolStripMenuItem.Click
        frmAlterarCliente.Show()
    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        frmAlteraProduto.Show()
    End Sub

    Private Sub CestasToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CestasToolStripMenuItem2.Click
        frmAlteraCesta.Show()
    End Sub

    Private Sub PedidosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PedidosToolStripMenuItem1.Click
        frmAlteraPedidos.Show()
    End Sub
End Class
